home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 3.st / CINIT.ARC / RSCDUMP.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-07-12  |  3.6 KB  |  156 lines
  1. /*********************************************
  2. *    Rscdump.c
  3. *    A program to dump resource files as C
  4. *    structures. Dumps the file listed on the command
  5. *    line to standard output, which may be redirected
  6. *    to a file:
  7. *
  8. *        rscdump file.rsc >file.out
  9. *
  10. *       by Samuel Streeper
  11. *       Copyright 1989 Antic Publishing
  12. *********************************************/
  13. #include <osbind.h>
  14. #include <obdefs.h>
  15. #include <gemdefs.h>
  16.  
  17. int num_trees = 0;
  18.  
  19. /************************************************************
  20. *    Note: nulls and spaces follow the strings below because    *
  21. *    Laser C 2.0 will mung 2 dimentional    character            *
  22. *    array generation. Fixed in Laser 2.1                    *
  23. ************************************************************/
  24. char types[][12] ={
  25.     "G_BOX\0     ",
  26.     "G_TEXT\0    ",
  27.     "G_BOXTEXT\0 ",
  28.     "G_IMAGE\0   ",
  29.     "G_PROGDEF\0 ",
  30.     "G_IBOX\0    ",
  31.     "G_BUTTON\0  ",
  32.     "G_BOXCHAR\0 ",
  33.     "G_STRING\0  ",
  34.     "G_FTEXT\0   ",
  35.     "G_FBOXTEXT\0",
  36.     "G_ICON\0    ",
  37.     "G_TITLE\0   "
  38.         };
  39.  
  40. main(argc,argv)
  41. char *argv[];
  42. {
  43.     RSHDR *header;
  44.     OBJECT *op;
  45.     TEDINFO *tp;
  46.     long size;
  47.     int read, in, num_objs = 0, num_teds = 0, ndx;
  48.     char *buffer;
  49.  
  50.     Bconws("Rscdump 1.02 890611 SGS\r\n");
  51.  
  52.     if (argc < 2)
  53.     {
  54.         printf("Usage: rscdump file.rsc [>file.out]\n");
  55.         Pterm(0);
  56.     }
  57.  
  58.     /* allocate space for the resource file */
  59.     buffer = (char *)Malloc(65000L);
  60.     if ((long)buffer <= 0L) Pterm(-1);
  61.  
  62.     header = (RSHDR *)buffer;
  63.     in = Fopen(argv[1],0);
  64.     if (in < 0)
  65.     {
  66.         printf("can't open %s\n",argv[1]);
  67.         Pterm(-1);
  68.     }
  69.  
  70.     size = Fread(in,64000L,buffer);
  71.     if (size <= 0L)
  72.     {
  73.         printf("unable to read %s\n",argv[1]);
  74.         Pterm(-1);
  75.     }
  76.     Fclose(in);
  77.  
  78.     /* Get index of tedinfos */
  79.  
  80.     tp = (TEDINFO *)(((long)buffer) + header->rsh_tedinfo);
  81.     while (num_teds < header->rsh_nted)
  82.     {
  83.         printf("TEDINFO ted%d = {\n",num_teds);
  84.         printf("\t\"%s\",\n",&buffer[(long)tp->te_ptext]);
  85.         printf("\t\"%s\",\n",&buffer[(long)tp->te_ptmplt]);
  86.         printf("\t\"%s\",\n",&buffer[(long)tp->te_pvalid]);
  87.         printf("\t%d, %d, %d, 0x%x, %d, 0x%x, %d, %d\t", tp->te_font,
  88.             tp->te_junk1, tp->te_just, tp->te_color, tp->te_junk2,
  89.             tp->te_thickness, tp->te_txtlen, tp->te_tmplen);
  90.         printf("    };\n\n");
  91.         tp++;
  92.         num_teds++;
  93.     }
  94.  
  95.     op = (OBJECT *)(((long)buffer) + header->rsh_object);
  96.  
  97.     while (num_objs < header->rsh_nobs)
  98.     {
  99.         if (op->ob_next == -1)
  100.         {    if (num_trees) close_bracket();
  101.             open_bracket();
  102.             num_trees++;
  103.         }
  104.  
  105.         printf("%d,",op->ob_next);
  106.         printf("%d,",op->ob_head);
  107.         printf("%d,",op->ob_tail);
  108.  
  109.         if (op->ob_type >= G_BOX && op->ob_type <= G_TITLE)
  110.             printf("%s,",types[op->ob_type - G_BOX]);
  111.         else printf("0x%x,",op->ob_type);
  112.  
  113.         printf("0x%x,",op->ob_flags);
  114.         printf("0x%x,",op->ob_state);
  115.  
  116.         if(op->ob_type == G_STRING || op->ob_type == G_BUTTON
  117.             || op->ob_type == G_TITLE)
  118.         {    printf("\"%s\",",&buffer[(long)op->ob_spec]);
  119.         }
  120.         else if (op->ob_type == G_TEXT || op->ob_type == G_BOXTEXT ||
  121.             op->ob_type == G_FTEXT || op->ob_type == G_FBOXTEXT)
  122.         {    ndx = (int)(((long)op->ob_spec - header->rsh_tedinfo)
  123.                 / sizeof(TEDINFO));
  124.             if (ndx >= 0 && ndx < header->rsh_nted)
  125.                 printf("&ted%d,",ndx);
  126.             else printf("0x%lxL,",op->ob_spec);
  127.         }
  128.         else printf("0x%lxL,",op->ob_spec);
  129.  
  130.         printf("%d,",op->ob_x);
  131.         printf("%d,",op->ob_y);
  132.         printf("%d,",op->ob_width);
  133.         printf("%d,\n",op->ob_height);
  134.  
  135.         op++;
  136.         num_objs++;
  137.     }
  138.     close_bracket();
  139. }
  140.  
  141. open_bracket()
  142. {
  143.     printf("OBJECT obj%d[] = {\n",num_trees);
  144. }
  145.  
  146. close_bracket()
  147. {
  148.     printf("};\n\n");
  149. }
  150.  
  151. Bconws(string)
  152. register char *string;
  153. {
  154.     while (*string) Bconout(2,*string++);
  155. }
  156.